home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / CPP / WFC010.ZIP / TEST / TCREG.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1995-05-18  |  1.8 KB  |  78 lines
  1. #include "test.h"
  2. #pragma hdrstop
  3.  
  4. void test_CRegistry( void )
  5. {
  6.    CRegistry registry;
  7.  
  8.    if ( registry.Connect( CRegistry::keyLocalMachine ) != TRUE )
  9.    {
  10.       TRACE( "Can't connect to registry\n" );
  11.       return;
  12.    }
  13.  
  14.    if ( registry.Open( "SYSTEM\\CurrentControlSet\\Services\\EventLog\\Application", (CRegistry::CreatePermissions)(CRegistry::permissionRead | CRegistry::permissionSetValue) ) != TRUE )
  15.    {
  16.       TRACE( "Can't open key\n" );
  17.       
  18.       ReportError( registry.GetErrorCode() );
  19.       return;
  20.    }
  21.  
  22.    CStringArray string_array;
  23.  
  24.    string_array.RemoveAll();
  25.  
  26.    if ( registry.GetStringArrayValue( "Sources", string_array ) == TRUE )
  27.    {
  28.       int index = 0;
  29.       int number_of_strings = string_array.GetSize();
  30.  
  31.       TRACE1( "There are %d strings\n", number_of_strings );
  32.  
  33.       CString temp_string;
  34.  
  35.       while( index < number_of_strings )
  36.       {
  37.          temp_string = string_array[ index ];
  38.  
  39.          TRACE2( "%d - \"%s\"\n", index + 1, (LPCTSTR) temp_string );
  40.          index++;
  41.       }
  42.  
  43.       if ( registry.SetStringArrayValue( "TempSources", string_array ) != TRUE )
  44.       {
  45.          ReportError( registry.GetErrorCode() );
  46.       }
  47.    }
  48.  
  49.    if ( registry.SetValue( "QFile", "Sammy" ) != TRUE )
  50.    {
  51.       TRACE( "registry.SetValue failed\n" );
  52.       ReportError( registry.GetErrorCode() );
  53.    }
  54.    else
  55.    {
  56.       TRACE( "Set QFile to Sammy\n" );
  57.    }
  58.  
  59.    CString temp_sammy( "" );
  60.  
  61.    if ( registry.GetValue( "QFile", temp_sammy ) != TRUE )
  62.    {
  63.       TRACE( "registry.GetValue failed\n" );
  64.       ReportError( registry.GetErrorCode() );
  65.    }
  66.    else
  67.    {
  68.       if ( temp_sammy.Compare( "Sammy" ) == 0 )
  69.       {
  70.          TRACE( "GetValue OK\n" );
  71.       }
  72.       else
  73.       {
  74.          TRACE1( "FAIL! QFile is \"%s\"\n", (LPCTSTR) temp_sammy );
  75.       }
  76.    }
  77. }
  78.